Skript-Beispiele
05-26-95
&$VER: Skript-Beispiele 1.00 (05-26-95)
on SelectUp
begin
' Definition der Funktion "Tonleiter"
on Tonleiter begin
for Note = 60 to 74 begin
play notes Note
delay 5
Tonleiter
New...
Open...
Make Copy...
Streamline...
Preferences...
	Workbench
Help...
About...
Quit...
Paste
Clear
Select All
Select Layer
Cut Page
	Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Last Color Font
Cycle
Grid...
Stop Sound
Show All
Unlock All
	Edit Form
Share
	Next Page
Previous Page
First Page
	Last Page
Backward
Forward
	Last Book
	Browse...
Autobrowse...
	Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
	Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
Paper <-> Pen
Paper ->  Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
	Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper ->  Pen
Center
Corner
	Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
	Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
	Script...
Load...
Save...
Plain
	Underline
Italic
Shadow
Font...
Spacing...
	Hypertext
Actions...
	Script...
Tools
Coordinates
	Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
	Histogram
	Magnifier
Messages
Draw Tools
Layers
Pages
Author
Book...
Form...
Page...
Display...
Narrator...
Hypertext...
Resources...
	Effect...
Effect Area
DDDUUUfffwww
topaz.fontGLOB
FONTS:
Skript-Beispiele
Origineller Inhalt
@oBild oder Ton?
@FFor-Schleife
@DDo-While-Schleife
Beispieltext
Beispieltext
@gget
@pput
Beispielbild
@lBild laden
@sBild speichern
@BBenutzer-Funktion
on SelectUp
begin
ion SelectUp
begin
answer "Was h
tten Sie denn gern?" with "~@BBild" or "@TTon"
if it = "Bild" then begin
show image "Helm:Star-Trek-Dateien/Bilder/Enterprise.IFF" loops 3
else begin
play sound "Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX" channel 0 volume 64
delay 2
play sound "Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX" channel 1 volume 32
Was h
tten Sie denn gern?
~@BBild
@TTon
Helm:Star-Trek-Dateien/Bilder/Enterprise.IFF
Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX
Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX
~on SelectUp
begin
for Zaehler = 5 to 40 step 2
begin
set pencolor random 15
drawellipse 540, 140, Zaehler, Zaehler
on SelectUp
begin
put 5 into Zaehler
put Zaehler + 2 into Zaehler
set pencolor random 15
drawellipse 540, 140, Zaehler, Zaehler
while Zaehler <= 40
@on SelectUp
begin
get textfield "Beispieltext"
answer it
`&...
Beispieltext
bon SelectUp
begin
ask "Was soll rein ins Textfeld?" 
put it into textfield "Beispieltext"
Was soll rein ins Textfeld?
Beispieltext
on SelectUp
begin
getfile "ram:" titletext "Bild laden ..."
load image it into imagefield "Beispielbild"
get palette
if it is false then domenu "Tools", "Palette"
get painttools
if it is false then domenu "Tools", "Paint Tools"
Bild laden ...
Beispielbild
Tools
Palette
Tools
Paint Tools
uon SelectUp
begin
getfile "ram:" titletext "Bild speichern ..." savemode
save imagefield "Beispielbild" as it
Bild speichern ...
Beispielbild
[on SelectUp
begin
' Aufruf der benutzerdefinierten Funktion "Tonleiter"
Tonleiter()
Tonleiter
ILBMBMHD
eCAMG